home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / COMMUNIC / MRUN211.ZIP / MRUN211C.WAS < prev    next >
Text File  |  1993-05-01  |  24KB  |  915 lines
  1. ;MailRun v2.11:  Part C, changebbs
  2. ;1992-1993 Gerald P. Sully, all rights reserved.
  3.  
  4. #comment
  5. **************************************************************************
  6. **************************************************************************
  7. * 
  8. * This file contains routines related to changing BBS settings.
  9. * Settings are divided into three groups, each with its own
  10. * dialog box:  BBS Settings, BBS Prompts, and Mail Door Prompts.
  11. * The appropriate routine is selected with a FLAG.
  12. * 
  13. **************************************************************************
  14. **************************************************************************
  15. #endcomment
  16.  
  17. #define MRUN211C
  18. #define MRUN211BC
  19.  
  20. #include "mrun211.h"
  21.  
  22. string ProtList, ArcList, MailDoorList, BBSTypeList, BBSChoice
  23.  
  24.  
  25. #comment
  26. *********************************************************************
  27. * 
  28. * MAIN()
  29. * 
  30. * Calls checkchild(), makemaildoorlist(), menudim(),
  31. * makebbstypelist(), makeprotlist(), changeprompts(),
  32. * changeuserinfo(), changemaildoor()
  33. * 
  34. * Dispatches the appropriate command based on the value
  35. * of FLAGS.
  36. * 
  37. *********************************************************************
  38. #endcomment
  39.  
  40. proc main
  41. integer cmdstatus
  42.     menudim()
  43.     checkchild()
  44.     findfirst MailRun
  45.     MailRunTrunc = $FILENAME
  46.     makeprotlist()
  47.     makebbstypelist()
  48.     makemaildoorlist()
  49.     cmdstatus = FLAGS & (USR + PRMPT + QMD)
  50.     switch cmdstatus
  51.         case USR
  52.             changeuserinfo()
  53.         endcase
  54.         case PRMPT
  55.             changeprompts()
  56.         endcase
  57.         case QMD
  58.             changemaildoor()
  59.         endcase
  60.     endswitch
  61. endproc
  62.  
  63.  
  64. #comment
  65. *********************************************************************
  66. * 
  67. * CHANGEUSERINFO()
  68. * 
  69. * Called by main()
  70. * 
  71. * Calls makebbslist(), loadbbsinfo(), loadprompts(), 
  72. * loadmaildoor(), writebbsinfo(), writeprompts(), 
  73. * writemaildoor(), interfaceon(), insertbbs(),
  74. * bbsbox(), addbbs(), defaultsprompts(), defaultsdoor(), 
  75. * cfgprompts(), cfgmaildoor(), checkchanged(),
  76. * gettaskstring()
  77. * 
  78. * Puts up the BBS Information dialog box and allows the
  79. * user to change the values for the current BBS.  If the
  80. * the DEFAULTS flag is set, changes the DEFAULT BBS
  81. * settings.  If the NEW flag is set, calls addbbs().
  82. * 
  83. *********************************************************************
  84. #endcomment
  85.  
  86. proc changeuserinfo
  87. string LastBBS, LastBBSType, BBSid, char
  88. integer dialogstatus, NameChanged, i
  89.     if FLAGS & DEFAULTS
  90.         BBSList = "DEFAULT"
  91.         BBSChoice = "DEFAULT"
  92.         loadbbsinfo(MailRun, "DEFAULT")
  93.         loadprompts(MailRunIni, BBSType)
  94.         loadmaildoor(MailRunIni, MailDoorType)
  95.         findfirst MailRun
  96.         strfmt BBSName "BBS Info Defaults for %s" $FILENAME
  97.     else
  98.         makebbslist()
  99.         strextract BBSChoice TaskItem "`t" 3
  100.         loadbbsinfo(MailRun, BBSChoice)
  101.         loadprompts(MailRun, BBSChoice)
  102.         loadmaildoor(MailRun, BBSChoice)
  103.     endif
  104.     NameChanged = 0
  105.     LastBBS = BBSChoice
  106.     LastBBSType = BBSType
  107.     bbsbox()
  108.     interfaceon()
  109.     FLAGS &= UNCHANGED
  110.     if FLAGS & NEW
  111.         addbbs()
  112.         LastBBS = BBSChoice
  113.     endif
  114.     while 1
  115.         dialogstatus = $DIALOG
  116.         switch dialogstatus
  117.             case 10
  118.                 ;User selected "Prompts"
  119.                 if FLAGS & DEFAULTS
  120.                     defaultsprompts()
  121.                 else
  122.                     cfgprompts()
  123.                 endif
  124.             endcase
  125.             case 11
  126.                 ;User selected "Mail Door"
  127.                 if FLAGS & DEFAULTS
  128.                     defaultsdoor()
  129.                 else
  130.                     cfgmaildoor()
  131.                 endif
  132.             endcase
  133.             case 12
  134.                 ;User selected "Save"
  135.                 if NULLSTR BBSName
  136.                     usermsg "You must enter the name of the BBS!"
  137.                     loopwhile
  138.                 elseif FLAGS & NEW
  139.                     ;if it is a new BBS
  140.                     if not NULLSTR TaskItem
  141.                         ;if there are other BBSs in the mailrun
  142.                         strextract BBSid TaskItem "`t" 3
  143.                         insertbbs(BBSid, BBSChoice)
  144.                     else
  145.                         ;if this is the only BBS in the mailrun
  146.                         writebbs(1, BBSChoice)
  147.                     endif
  148.                     TaskItem = gettaskstring(BBSid, 0)
  149.                     FLAGS &= OLD
  150.                 endif
  151.                 if FLAGS & DEFAULTS
  152.                     writebbsinfo(MailRun, "DEFAULT")
  153.                     writeprompts(MailRunIni, BBSType)
  154.                     writemaildoor(MailRunIni, MailDoorType)
  155.                 else
  156.                     writebbsinfo(MailRun, BBSChoice)
  157.                     writeprompts(MailRun, BBSChoice)
  158.                     writemaildoor(MailRun, BBSChoice)
  159.                 endif
  160.                 strextract char TaskItem "`t" 4
  161.                 atoi char i
  162.                 if NameChanged && !(i)
  163.                     TaskItem = gettaskstring(BBSChoice, 0)
  164.                 endif
  165.                 FLAGS &= UNCHANGED
  166.             endcase
  167.             case 13
  168.                 ;User selected "Done:
  169.                 if checkchanged()
  170.                     exit
  171.                 endif
  172.             endcase
  173.             case 171
  174.                 ;User changed the BBS type
  175.                 if FLAGS & DEFAULTS
  176.                     if checkchanged()
  177.                         loadprompts(MailRunIni, BBSType)
  178.                         FLAGS &= UNCHANGED
  179.                         LastBBSType = BBSType
  180.                     else
  181.                         BBSType = LastBBSType
  182.                     endif
  183.                 else
  184.                     loadprompts(MailRunIni, BBSType)
  185.                 endif
  186.                 FLAGS |= CHANGED
  187.                 updatedlg -1
  188.             endcase
  189.             case 172
  190.                 ;User changed the mail door type
  191.                 if FLAGS & DEFAULTS
  192.                     loadmaildoor(MailRunIni, MailDoorType)
  193.                 else
  194.                     loadmaildoor(MailRunIni, MailDoorType)
  195.                 endif
  196.                 FLAGS |= CHANGED
  197.             endcase
  198.             case 173
  199.                 ;User changed BBS ID with combobox
  200.                 if checkchanged()
  201.                     loadbbsinfo(MailRun, BBSChoice)
  202.                     loadprompts(MailRun, BBSChoice)
  203.                     loadmaildoor(MailRun, BBSChoice)
  204.                     TaskItem = gettaskstring(BBSChoice, 0)
  205.                     FLAGS &= UNCHANGED
  206.                     LastBBS = BBSChoice
  207.                     updatedlg -1
  208.                 else
  209.                     BBSChoice = LastBBS
  210.                     updatedlg 512
  211.                 endif
  212.             endcase
  213.             case 230
  214.                 NameChanged = 1
  215.                 FLAGS |= CHANGED
  216.             endcase
  217.             case 70
  218.             case 170
  219.             case 231
  220.             case 232
  221.             case 233
  222.             case 234
  223.             case 235
  224.             case 236
  225.             case 237
  226.             case 238
  227.             case 239
  228.                 FLAGS |= CHANGED
  229.             endcase
  230.         endswitch
  231.     endwhile
  232. endproc
  233.  
  234.  
  235. #comment
  236. *********************************************************************
  237. * 
  238. * CHANGEPROMPTS()
  239. * 
  240. * Called by main()
  241. * 
  242. * Calls makebbslist(), promptbox(), loadprompts(),
  243. * writeprompts(), interfaceon(), defaultsbbs(), defaultsdoor(),
  244. * cfgbbs(), cfgmaildoor(), exportprompts(), checkchanged(),
  245. * gettaskstring()
  246. * 
  247. * Allows the user to change the prompts for a given BBS in
  248. * the *.MRN file.  If DEFAULTS flag is set, changes default
  249. * prompts for the current BBS type.
  250. * 
  251. *********************************************************************
  252. #endcomment
  253.  
  254. proc changeprompts
  255. string LastBBS, LastBBSType
  256. integer dialogstatus
  257.     if FLAGS & DEFAULTS
  258.         BBSList = "DEFAULT"
  259.         BBSChoice = "DEFAULT"
  260.         profilerd MailRun "DEFAULT" "BBSType" BBSType
  261.         loadprompts(MailRunIni, BBSType)
  262.     else
  263.         makebbslist()
  264.         strextract BBSChoice TaskItem "`t" 3
  265.         profilerd MailRun BBSChoice "BBSType" BBSType
  266.         loadprompts(MailRun, BBSChoice)
  267.     endif
  268.     LastBBS = BBSChoice
  269.     LastBBSType = BBSType
  270.     promptbox()
  271.     FLAGS &= UNCHANGED
  272.     interfaceon()
  273.     while 1
  274.         dialogstatus = $DIALOG
  275.         switch dialogstatus
  276.             case 10
  277.                 ;User selected "BBS Info"
  278.                 if FLAGS & DEFAULTS
  279.                     defaultsbbs()
  280.                 else
  281.                     cfgbbs()
  282.                 endif
  283.             endcase
  284.             case 11
  285.                 ;User selected "Mail Door"
  286.                 if FLAGS & DEFAULTS
  287.                     defaultsdoor()
  288.                 else
  289.                     cfgmaildoor()
  290.                 endif
  291.             endcase
  292.             case 12
  293.                 ;User selected "Export"
  294.                 exportprompts()
  295.             endcase
  296.             case 13
  297.                 ;User selected "Save"
  298.                 if FLAGS & DEFAULTS
  299.                     writeprompts(MailRunIni, BBSType)
  300.                 else
  301.                     writeprompts(MailRun, BBSChoice)
  302.                     profilewr MailRun BBSChoice "BBSType" BBSType
  303.                 endif
  304.                 FLAGS &= UNCHANGED
  305.             endcase
  306.             case 14
  307.                 ;User selected "Done"
  308.                 if checkchanged()
  309.                     exit
  310.                 endif
  311.             endcase
  312.             case 170
  313.                 ;User changed BBS with the combobox
  314.                 if checkchanged()
  315.                     loadprompts(MailRun, BBSChoice)
  316.                     profilerd MailRun BBSChoice "BBSType" BBSType
  317.                     TaskItem = gettaskstring(BBSChoice, 0)
  318.                     LastBBS = BBSChoice
  319.                     updatedlg -1
  320.                 else
  321.                     BBSChoice = LastBBS
  322.                     updatedlg 512
  323.                 endif
  324.             endcase
  325.             case 171
  326.                 ;User changed BBS type
  327.                 if FLAGS & DEFAULTS
  328.                     if checkchanged()
  329.                         loadprompts(MailRunIni, BBSType)
  330.                         updatedlg 128
  331.                         FLAGS &= UNCHANGED
  332.                         LastBBSType = BBSType
  333.                     else
  334.                         BBSType = LastBBSType
  335.                         updatedlg 512
  336.                     endif
  337.                 else
  338.                     loadprompts(MailRunIni, BBSType)
  339.                     updatedlg 128
  340.                     FLAG